home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / listx / column4.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-11-17  |  10.3 KB  |  304 lines
  1. VERSION 4.00
  2. Begin VB.Form frmColumns 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   5835
  5.    ClientLeft      =   2430
  6.    ClientTop       =   4095
  7.    ClientWidth     =   7830
  8.    ControlBox      =   0   'False
  9.    Height          =   6240
  10.    Icon            =   "Column4.frx":0000
  11.    Left            =   2370
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MDIChild        =   -1  'True
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   5835
  18.    ScaleWidth      =   7830
  19.    ShowInTaskbar   =   0   'False
  20.    Top             =   3750
  21.    Width           =   7950
  22.    Begin VB.Timer Timer1 
  23.       Interval        =   900
  24.       Left            =   6810
  25.       Top             =   4875
  26.    End
  27.    Begin VB.CheckBox Check3 
  28.       Caption         =   "Vertical Dividers"
  29.       Height          =   195
  30.       Left            =   5265
  31.       TabIndex        =   8
  32.       Top             =   4365
  33.       Value           =   1  'Checked
  34.       Width           =   1845
  35.    End
  36.    Begin VB.CheckBox Check2 
  37.       Caption         =   "Horizontal Dividers"
  38.       Height          =   240
  39.       Left            =   5265
  40.       TabIndex        =   7
  41.       Top             =   4080
  42.       Value           =   1  'Checked
  43.       Width           =   1905
  44.    End
  45.    Begin VB.CheckBox Check1 
  46.       Caption         =   "Hide Column 1"
  47.       Height          =   240
  48.       Left            =   2850
  49.       TabIndex        =   5
  50.       Top             =   4095
  51.       Width           =   2025
  52.    End
  53.    Begin VB.Label Label4 
  54.       Caption         =   "Be sure to look at Form_Load to see how List/X+ controls can be loaded directly from arrays of data."
  55.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  56.          Name            =   "MS Sans Serif"
  57.          Size            =   9.75
  58.          Charset         =   0
  59.          Weight          =   400
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       ForeColor       =   &H00C00000&
  65.       Height          =   585
  66.       Left            =   1590
  67.       TabIndex        =   9
  68.       Top             =   4890
  69.       Width           =   4725
  70.    End
  71.    Begin VB.Label Label3 
  72.       Caption         =   "Column 1 is sizable, within MinWidth and MaxWidth property values."
  73.       Height          =   1035
  74.       Left            =   5250
  75.       TabIndex        =   6
  76.       Top             =   3030
  77.       Width           =   2190
  78.    End
  79.    Begin VB.Label Label2 
  80.       Caption         =   "Column 1 is fixed width, columns 2 and 3 have their UserResizeEnabled properties set to TRUE."
  81.       Height          =   1035
  82.       Left            =   2850
  83.       TabIndex        =   4
  84.       Top             =   3015
  85.       Width           =   2190
  86.    End
  87.    Begin VB.Label Label1 
  88.       Caption         =   "Fixed width columns.  Both of the columns have their UserResizeEnabled property set to FALSE."
  89.       Height          =   1455
  90.       Left            =   375
  91.       TabIndex        =   3
  92.       Top             =   3030
  93.       Width           =   2145
  94.    End
  95.    Begin MabryCtl.MList MList3 
  96.       Height          =   2490
  97.       Left            =   5265
  98.       TabIndex        =   2
  99.       Top             =   345
  100.       Width           =   2175
  101.       _ExtentX        =   3836
  102.       _ExtentY        =   4392
  103.       Caption         =   "Caption"
  104.       CaptionAlignment=   1
  105.       Object.TabStop         =   -1  'True
  106.       ThreedShadowColor=   -2147483627
  107.       MousePointer    =   -842150451
  108.       VertDivForeColor=   255
  109.       HorzDivForeColor=   16711680
  110.       VertDividerEffect=   1
  111.       HorzDividerEffect=   1
  112.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  113.          Name            =   "MS Sans Serif"
  114.          Size            =   8.25
  115.          Charset         =   0
  116.          Weight          =   400
  117.          Underline       =   0   'False
  118.          Italic          =   0   'False
  119.          Strikethrough   =   0   'False
  120.       EndProperty
  121.       BeginProperty Columns {23BAA6DE-05A6-11D1-9E15-0020AFD6A9D5} 
  122.          ColumnCount     =   2
  123.          BeginProperty Column0 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  124.             Object.Width           =   50
  125.             MinWidth        =   25
  126.             MaxWidth        =   75
  127.             UserResizeEnabled=   -1
  128.             Heading         =   "Col 1"
  129.             Object.Visible         =   -1
  130.             ColumnAlignment =   1
  131.             HeadingAlignment=   1
  132.          EndProperty
  133.          BeginProperty Column1 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  134.             Object.Width           =   25
  135.             MinWidth        =   0
  136.             MaxWidth        =   -1
  137.             UserResizeEnabled=   -1
  138.             Heading         =   "Col 2"
  139.             Object.Visible         =   -1
  140.             ColumnAlignment =   0
  141.             HeadingAlignment=   0
  142.          EndProperty
  143.       EndProperty
  144.    End
  145.    Begin MabryCtl.MList MList2 
  146.       Height          =   2490
  147.       Left            =   2805
  148.       TabIndex        =   1
  149.       Top             =   330
  150.       Width           =   2175
  151.       _ExtentX        =   3836
  152.       _ExtentY        =   4392
  153.       Caption         =   "Caption"
  154.       CaptionAlignment=   2
  155.       Object.TabStop         =   -1  'True
  156.       ThreedShadowColor=   -2147483627
  157.       MousePointer    =   -842150451
  158.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  159.          Name            =   "MS Sans Serif"
  160.          Size            =   8.25
  161.          Charset         =   0
  162.          Weight          =   400
  163.          Underline       =   0   'False
  164.          Italic          =   0   'False
  165.          Strikethrough   =   0   'False
  166.       EndProperty
  167.       BeginProperty Columns {23BAA6DE-05A6-11D1-9E15-0020AFD6A9D5} 
  168.          ColumnCount     =   3
  169.          BeginProperty Column0 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  170.             Object.Width           =   50
  171.             MinWidth        =   0
  172.             MaxWidth        =   -1
  173.             UserResizeEnabled=   0
  174.             Heading         =   "Col 1"
  175.             Object.Visible         =   -1
  176.             ColumnAlignment =   2
  177.             HeadingAlignment=   0
  178.          EndProperty
  179.          BeginProperty Column1 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  180.             Object.Width           =   50
  181.             MinWidth        =   0
  182.             MaxWidth        =   -1
  183.             UserResizeEnabled=   -1
  184.             Heading         =   "Col 2"
  185.             Object.Visible         =   -1
  186.             ColumnAlignment =   2
  187.             HeadingAlignment=   2
  188.          EndProperty
  189.          BeginProperty Column2 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  190.             Object.Width           =   20
  191.             MinWidth        =   0
  192.             MaxWidth        =   -1
  193.             UserResizeEnabled=   -1
  194.             Heading         =   "Col 3"
  195.             Object.Visible         =   -1
  196.             ColumnAlignment =   2
  197.             HeadingAlignment=   1
  198.          EndProperty
  199.       EndProperty
  200.    End
  201.    Begin MabryCtl.MList MList1 
  202.       Height          =   2490
  203.       Left            =   360
  204.       TabIndex        =   0
  205.       Top             =   360
  206.       Width           =   2175
  207.       _ExtentX        =   3836
  208.       _ExtentY        =   4392
  209.       Caption         =   "Caption"
  210.       Object.TabStop         =   -1  'True
  211.       ThreedShadowColor=   -2147483627
  212.       MousePointer    =   -842150451
  213.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  214.          Name            =   "MS Sans Serif"
  215.          Size            =   8.25
  216.          Charset         =   0
  217.          Weight          =   400
  218.          Underline       =   0   'False
  219.          Italic          =   0   'False
  220.          Strikethrough   =   0   'False
  221.       EndProperty
  222.       BeginProperty Columns {23BAA6DE-05A6-11D1-9E15-0020AFD6A9D5} 
  223.          ColumnCount     =   2
  224.          BeginProperty Column0 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  225.             Object.Width           =   50
  226.             MinWidth        =   0
  227.             MaxWidth        =   -1
  228.             UserResizeEnabled=   0
  229.             Heading         =   "Col 1"
  230.             Object.Visible         =   -1
  231.             ColumnAlignment =   0
  232.             HeadingAlignment=   0
  233.          EndProperty
  234.          BeginProperty Column1 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  235.             Object.Width           =   0
  236.             MinWidth        =   0
  237.             MaxWidth        =   -1
  238.             UserResizeEnabled=   0
  239.             Heading         =   "Col 2"
  240.             Object.Visible         =   -1
  241.             ColumnAlignment =   0
  242.             HeadingAlignment=   0
  243.          EndProperty
  244.       EndProperty
  245.    End
  246. Attribute VB_Name = "frmColumns"
  247. Attribute VB_Creatable = False
  248. Attribute VB_Exposed = False
  249. Option Explicit
  250. Private Sub Check1_Click()
  251.    ' Hide/unhide column
  252.    If (Check1.Value = 1) Then
  253.       MList2.Columns(0).Visible = False
  254.    Else
  255.       MList2.Columns(0).Visible = True
  256.    End If
  257. End Sub
  258. Private Sub Check2_Click()
  259.    ' set horizontal dividers value
  260.    MList3.HorzDividers = Check2.Value
  261. End Sub
  262. Private Sub Check3_Click()
  263.    ' set vertical dividers value
  264.    MList3.VertDividers = Check3.Value
  265. End Sub
  266. Private Sub Form_Load()
  267.    Dim r As Integer
  268.    Dim c As Integer
  269.    Dim colRowOrder(2, 9) As Variant
  270.    Dim rowColOrder(9, 3) As Variant
  271.    ' Note arrays of String can be used too
  272.    For r = 0 To 9
  273.       '
  274.       ' colRowOrder(column, row)
  275.       '
  276.       colRowOrder(0, r) = r
  277.       colRowOrder(1, r) = "Col 2"
  278.       rowColOrder(r, 0) = r
  279.       '
  280.       ' rowColOrder(row, column)
  281.       '
  282.       rowColOrder(r, 1) = "Col 2"
  283.       rowColOrder(r, 2) = "Col 3"
  284.    Next
  285.    ' MList1 - load from col,row ordererd array
  286.    MList1.colRowOrder = True
  287.    MList1.PutItems colRowOrder
  288.    ' MList2 - load from row, col ordered array
  289.    MList2.colRowOrder = False
  290.    MList2.PutItems rowColOrder
  291.    ' MList3 - load from col,row ordered array
  292.    MList3.colRowOrder = True
  293.    MList3.PutItems colRowOrder
  294. End Sub
  295. Private Sub Timer1_Timer()
  296.    If (Timer1.Interval = 900) Then
  297.       Label4.ForeColor = RGB(0, 0, 255)
  298.       Timer1.Interval = 100
  299.    Else
  300.       Label4.ForeColor = RGB(0, 0, 196)
  301.       Timer1.Interval = 900
  302.    End If
  303. End Sub
  304.